home *** CD-ROM | disk | FTP | other *** search
- /***********************************************************************/
- /*
- /* serial.setBreak.dll.c
- /* by Atul Butte
- /* Copyright ⌐ 1989 by Microsoft Corporation
- /* All Rights Reserved
- /*
- /* version 1.0
- /*
- /*
- /* This CALL/REGISTER sets the break on a serial port.
- /*
- /* Excel usage:
- /*
- /* = Register( "serial library", "serial.setBreak", "IH" )
- /* = Call( ref, port )
- /*
- /* where
- /* portNumber = number of port (1 = modem, 2 = printer)
- /*
- /***********************************************************************/
-
- /***********************************************************************/
- /*
- /* D E F I N E S
- /*
- /***********************************************************************/
-
- #define ROUTINE_NAME "serial.setBreak"
- #define hNIL 0L
- #define pNIL 0L
-
- /***********************************************************************/
- /*
- /* I N C L U D E S
- /*
- /***********************************************************************/
-
- #include "serial.h"
- #include "error.h"
- #include "get_port.h"
-
- /***********************************************************************/
- /*
- /* main
- /*
- /***********************************************************************/
-
- pascal short main( port )
-
- unsigned short port; /* serial port to use */
-
- {
- register OSErr err; /* result code from Toolbox routines */
- short refIn; /* reference number for input port */
- short refOut; /* reference number for output port */
-
- RememberA0();
- SetUpA4();
-
- err = get_port( port, &refIn, &refOut );
- if( err != noErr ) {
- display_error( "Illegal port number." );
- RestoreA4( );
- return( err );
- }
-
- err = SerSetBrk( refOut );
- if( err != noErr ) {
- display_error( "Error in setting break." );
- RestoreA4( );
- return( errSerialSetBrk );
- }
-
- RestoreA4( );
- return( noErr );
- }
-
- #include "get_port.c"
-